package Text::MyFilter;

use base 'Text::Filter::Begin';

sub call{
    my $self = shift;
    my $text = shift;
    $self->text($text);
    $self->next::method(@_) if( $self->next::can );
    return $self->text;
}

1;

